Volume 8 -- Issue l November, 1987 


(Pretty) Fast DOS Text Writer. . . . « « « « «© «© «© «© «© «© «© « 2 
Strange Decimal-to-Binary Conversion . ......e «6 « « « « 16 
Getting a Pointer from a Handle ...... «0. « «© «© « « « 22 
Converting BCD to Binary, Packing Fields .......« e « « 25 


Update on Drawing Circles 


In case you missed it, Richard Miner presented a nice refinement 
to Dick Pountain's Circle Drawing Algorithm a in letter to the 
editor of Byte Magazine, December, 1987, pages 26-30. Miner's 
method allows you to uSe X- and Y-scale factors, so that you can 
cope with non-Square aspect ratios on video screens and printers. 


Furthermore, Brent Iverson has published an article on Hi-Res 
circle drawing in Nibble Magazine, January 1988, pages 68-71. He 
uses the same algorithm I did in my September article, and 
converts it to assembly language uSing MicroSparc's MacroSoft 
macros. The resulting code ($35A bytes) takes over three times 
aS much memory the program I published in the September AAL, but 
it was probably easier to write. 


Webster Said It 


Do you Know who Noah Webster was? His name is on practically 
every American dictionary, because he wrote the first one. (I 
have a copy of his small 1806 edition and another of his very 
large one from 1828.) Called America's foremost pioneer 
lexicographer, he mastered 20 languages including Hebrew and 
Greek. In 1833 he published his own revision of the King James 
Version of the Bible. I bought a reprint of it this week (Baker 
Book House, 1987), and intend to read it through in the coming 
year. Webster said, "The Bible is the chief moral cause of all 
that 1S good, and the best corrector of all that is evil, in 
human society; the best book for regulating the temporal concerns 
of men, and the only book that can serve as an infallible guide 
to future felicity." 


Still a Bug in IIgs Smartport 


Alan J.Silver reports in the Jan 88 issue of Open Apple that the 
new version 01 IIgs ROMS clobber locations $57 thru $5A on the 
caller's Direct Page when you make a Smartport call to the 
firmware in slot 5. The older ROMs clobbered the same locations 
in “true" page zero, aS reported in AAL, May, 1987, page 26. 


(Pretty) Fast DOS Textwriter..........cccceeeeeeeeReRe Bukrey 


Bill Morgan's article (Feb 87) on writing very large DOS text 
files very fast was interesting to me. Not too long ago, I had 
tackled a similar problem. I had modified Cornelis Bongers' 
Cross Assembler (Micro on the Apple, Vol. 3) to produce output 
compatible with the DOS Toolkit Assembler, and I needed a way 
to get the output to disk. On discovering DOS'sS aversion to 
handling text files from machine language, I realized I had to 
Write something from scratch. The result was TEXTFILE. 


TEXTFILE is fast (5.5 sectors per second), although presumably 
not as fast as Bill's program. As noted in Bill's article, the 
speed advantage comes mainly from keeping the VTOC, T/S list 
and catalog sectors all in memory, rather than reading and 
writing them repeatedly to and from disk. 


Thus, while TEXTFILE is not Super-fast, I think it does offer 
some advantages: it doesn't require the file space to be 
previously allocated. It reads the disk directory and either 
locates the desired file or creates it. The file size produced 
by TEXTFILE is limited only by available disk Space. 


Finally, TEXTFILE requires no patches to DOS, and Since it was 
written with no Space restrictions, it is self-contained, 
needing no BASIC caller to help it along. Probably the main 
advantage of the program, in retrospect, is that it offers a 
pretty straightforward tutorial on DOS file management. 


We can outline the workings of TEXTFILE by taking a quick tour 
through the listing. To make the listing a little shorter, I 
have turned off the listing of the macro expansion. The >SET 
macro, defined in lines 1510-1560, is used to store an buffer 


address into a pointer. 


Right off, we note that we haven't been careful to avoid 
Applesoft's turf. Lines 1050-1210 use HIMEM and other important 
BASIC pointers. These would probably have to be relocated if 
we were intending to link with a running BASIC program. 


Lines 1620-1850 input the file name and check its syntax. 


The SCAN routine (line 1890) looks thru the directory for the 
specified name. A matchup skips ahead to FOUND (line 2940). 
While scanning, it saves the sector number of the first deleted 
file that happens by. On no matchup, this entry will be used 
for creating the new file. If no deleted entries are handy, 
the first blank one is used. Lacking even that, it quits via 
"disk full error.' 


If a new file entry is to be created, this is done in lines 
2690-2930. 


With the directory set up, we can move on to the VTOC. Lines 
3040-3160 read it into its buffer and initialize counters and 
pointers. One important point: the first byte of the VTOC is 
used as a change flag: if the VTOC never changes, we can skip 
writing it back to the disk when we are done. 
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S-C Macro Assembler Version 2.0......DOS $100, ProDOS $100, both for $120 
Version 2.0 DOS Upgrade Kit for 1.0/1.1/1.2 ownerS......ccesecveceeeee 920 
ProDOS Upgrade Kit for Version 2.0 DOS OWNerS....ccevcccccccccceceesse 930 
Source Code of S-C Macro 2.0 (DOS or ProDOS)........each, additional $100 
S-C DisAssembler (ProDOS only)...without source code $30, with source $50 
RAK-Ware DISASM (DOS only).......without source code $30, with source $50 
PrOVIEW (ProDOS Only) .cccccvcccnecevvescencscrreccvssseevesssoeesesces aU 
Full Screen Editor for S-C Macro (with complete source code) .........+$49 
S-C Cross Reference Utility......without source code $20, with source $50 
S-C Word Processor (with complete source Code)... .ccceccccccvccesseees 9 D0 
DP18 and DPFP, including complete source and object code.......0..00++950 
ES-CAPE (Extended S-C Applesoft Program Editor) .......... 

Including Version 2.0 With Source Code..........$50 
ES-CAPE Version 2.0 and Source Code Update (for Registered Owners)....$30 
Bag of Tricks 2 (Quality Software) ...ccccccccccccccccveccese (949.95) $45 
S-C Documentor (complete commented source code of Applesoft ROMs).....$50 
Cross Assemblers for owners of S-C Macro Assembler.....$32.50 to $50 each 

(Available: 6800/1/2, 6301, 6805, 6809, 68000, 2-80, 2-8, 8048, 
8051, 8085, 1802/4/5, PDP-1l1, G1I1650/70, others) 

Beagle Bros. Applesoft Compiler (ProDOS only) ......eeseeoee- ($74.95) $65 
Copy II Plus (Central Point Software) ....cccccccccccsscecece (939.99) $30 


AAL Quarterly DiSkS....ccccccreccescevcesees each $15, or any four for $45 
Each disk contains the source code from three issues of AAL: 
Jan-Mar, Apr-Jun, Jul-Sep, and Oct-Dec. 
(All source code is formatted for S-C Macro Assembler. Other assemblers 
require some effort to convert file type and edit directives.) 


Vinyl disk pages, 6"x8.5", hold two disks each... .cccccccceeees-lL0 for $6 
Diskette Mailing Protectors (hold 1 or 2 disks).............40 cents each 

(Cardboard folders designed to fit 6°X9" Envelopes.) or $25 per 100 
Envelopes for Diskette MailersS.....ccccccccccccccccccesecee 6 Cents each 


Sider 20 Meg Hard Disk, includes controller & software........($695) $550 
Sider 40 Meg Hard Disk, includes controller & software........($995) $860 


Minuteman 250 Uninterruptible Power Supply.......cscecscccssee ($399) $320 
Minuteman 300 Uninterruptible Power Supply....cccecccccccsseee ($949) $490 


65802 Microprocessor (Western Design Center) ....ccccccccccccceresece $25 
quikLoader EPROM System (SCRG)....cccsccccccccccccccccvecccser(ol/9) $170 
PROmGRAMER CS CRG) 5h 56 6.6 hte Soe we ae ele Ww SER Wis ree Se ee ew oer COLE 00) $140 


"Exploring the Apple IIgs”, Gary B. Little... .ceccceccvceeee ($22.95) $21 
“Apple IIgs Technical Reference", Fischer.....ccccscccccceee ($19.95) $19 
"65816/65802 Assembly Language Programming", Fischer........($21.95) $20 
“Programming the 65816", Eyes & Lichty......cccccccccceceeee ($22.95) $21 
"Apple //e Reference Manual", Apple Computer........ceeee0e+($24.95) $23 
"Apple //c Reference Manual", Apple Computer......cescceecees ($24.95) $23 
“ProDOS-8 Technical Reference Manual", Apple Computer.......($29.95) $27 
“ProDOS-16 Technical Reference Manual", Apple Computer......($29.95) $27 
“Apple IIgs Firmware Reference", Apple Computer.........+.--($24.95) $23 
“Apple IIgs Hardware Reference", Apple Computer.........22++($24.95) $23 
“ProDOS Inside and Out", Doms & Weishaar.......csceccccceeee ($16.95) $16 
"pOStalk Scrapbook”, Weishaar & KerSey....cccccccsececccccee (914.95) $14 
“Beneath Apple ProDOS", Worth & Lechner.....ccccccecccccceee (919.95) $18 
"Beneath Apple DOS", Worth & LeChner.....ccccerccvccccvcceeee ($19.95) $18 
"Inside the Apple //c", Little... .c.ccrccsccccscccsescsescsecee (919.95) $18 
"Inside the Apple //e", Little... ccccccscccccccccccscsesese (919.95) $18 
"Understanding the Apple //e", Sather....ccccccccvccvcrecsee ($24.95) $23 
“Understanding the Apple II", Sather...c.cccccsccvccccccceees (922.95) $21 
“Apple II+/IIe Troubleshooting & Repair Guide", Brenner.....($19.95) $18 
"Assem. Language for Applesoft Proyrammers", Finley & Myers.(§18.95) $18 
"Now That You Know Apple Assembly Language...", Gilder......($19.95) $18 
"Enhancing Your Apple II, vol. 1", Lancaster......2eceeeeeee ($15.95) $15 
"Enhancing Your Apple II, vol. 2", LancasSter....ccccececcceee ($17.95) $17 
“Assembly Cookbook for the Apple II/IIe", Lancaster.........($21.95) $20 
"Microcomputer Graphics", MYeErS..ccccccccccccescccccesesesese (914.95) $14 
"Assembly Lines -- the Book", Wagner...ccccccccvcccsecsecese ($19.95) $12 


* On these items add $2.00 for the first item and 
$.75 for each additional item for US shipping. 
+ Inquire for shipping cost. 
Foreign customers inquire for postage needed. 
Texas residents please add 8% sales tax to all orders. 


te eeee eee eee HHH He UhUhlUthlUhlU Ue Ue 


Next, the track/sector list is either read (old file) or 
created (new file). In the latter case, the subroutine GETFREE 
(lines 4610-5060) scans the VTOC for the next free sector, 
Starting in track $22 and working down through track $03. Only 
one pass through the VTOC is made, and no attempt is made to 
mimic DOS's ‘optimization,' i.e., starting near the catalog 

t: ack and looking in both directions for empty Space. 


Once the T/S list is in place, we can start dumping data to the 
disk (lines 3540-4100). The loop at line 3590 fills the data 
buffer with 16 copies of a 16-character string. This is where 
tie user would insert his/her own data-generating routine. As 
m..ght be expected, any existing T/S list is used until 

e hausted, then extended by GETFREEing as needed. 


T 1s demo version of TEXTFILE is set up to quit when the sector 
c unter reaches zero (having been initialized to 50). Any real 
a plication would similarly have to indicate end of data. 


W th the data safely sequestered on disk, we can restore the 
d rectory, T/S list and VTOC to disk (lines 4270-4570), and 
c ll it a day. 


A parting thought: the following Applesoft program demonstrates 
t'e speed advantage of TEXTFILE over BASIC: a factor of five. 
E 


joy. 


100. DS=CHRS (4) 
110 PRINT DS“OPEN TTT" : PRINT DS"WRITE TTT" 
120 FOR I = 1 TO 50 
130 FOR J = 1 TO 16 
: PRINT “THIS IS A TEST." 
: NEXT 
140 NEXT I 
150 PRINT DS$“CLOSE" 


1 
19% & FAST TEXTFILE SAVE PROGRAM, BY R. R. BUKREY 


a jogo status “Ed $43 
.B- s! P-REGISTER 
: tle SAMY aR fr) Avo 
712— ER & SECT 
He 1090 DIRSEC 2EQ tf DIRECTORY SECTOR USEDO COUNTER 
13- 1100 PILPTR +E 15 POINTER TO FILE ENTRY IN DIR BUFFR 
e I 
78- 1120 TSS —s-_ LEQ i SECT OF T/S LIST 
9- 1130 TYP -EQ $79 FILE TYPE 
7A- 1140 NTSL [EQ $7A NO. OF T/S LISTS 
1B- 1150 VY .EQ $7B OFFSET INTO VTOC 
iC- 1160 VBI BQ ic 2-BYTE BUFFER FOR VTOC ROL 
7E- 1150 VTTRK .EQ $7E LAST TRACK ALLOCATED 
Be 1200 Bop” BQ 3h END Of NaER 
81- 1210 CTR -EQ $81 vate EEAG 
0200- 1230 KBUFF .£Q $200... 
iam SCUFF -B0 $2000 


02 
02 
2 os 
E9 BT 


EB B7 


0843- 8E EA B7 
O846- 8E FH B7 


08a AQ OF 000 
O84B- 8D ED ra 2010 
O84E- 20 C1 OA 2020 
0851- 85 73 2030 


RWTS - EQ 
GETIOB .EQ 


COLDOS .EQ $308 


3D9 
3E3 


#~~~Data Areas inside DOS-------- 
BUFF 600 


DATA BUFFER 

T/S LIST BUFFER 
VTOC BUFFER 
DIRECTORY BUFFER 


I/O CONTROL BLOCK 


O=ANY 


1=sREAD 2=WRITE 


PRINT ERROR 


MSG 
ZERO BUFFER POINTED TO BY A4 


EQ 13 
eS: inside DOS------- 


nes in Monitor------- 
D8E 


ZERO LENGTH 
NAME TOO LONG 


SAVE LENGTH 
1ST CHAR A LETTER? 


CR = END OF NAME 
NO COMMAS ALLOWED 


ALWAYS 


STX DRIVE 


JSR DIRIOB 
STA PTR+1 


USE ANY VOLUME # 


START WITH SECTOR $0F 


1310 VTOC -EQ $B3BB 
1330 DBUFF -EQ $B4BB 
1340 IOB -EQ $B7E8 
1350 SLOT ~-EQ IOB+1 
1360 DRIVE .EQ IOB+2 
1370 VOL ~-EQ IOB+ 
1380 TRK ~-EQ IOB+ 
130 SECT -EQ IOB+ 
1400 BUFFAD .EQ IOB+ 
1410 OPER ~-EQ IOB+12 
aNacce RETCOD . IOB+ 
Wako DOSERR .EQ 

1130 ZBUFF .EQ $B7D6 
1460 #---Subrout 

ihe CROUT . F 
1480 HOME -EQ $FC58 
beh ee GETLIN .EQ $FDO6F 
1510 -MA SET 
1220 LDA ‘f° 
12ho LDA 2 
1550 STA J1+1 
139 «oi 

1560 -OR $803 
1860 # GET FILE NAME 
1038 TEXTFILE 

16 30 HOME 
1640 JSR CROUT 
1650 JSR CROU 
1660 JSR GETLIN 
Lt TXA 

1680 BEQ .2 
1690 CPX aSie 
1700 BcS . 

1710 STX NAMLEN 
1720 LDA KBUFF 
ee CMP 3c 
1740 BMI . 

1750 CMP i 
1760 BPL 

1450 LDY #1 
1780 .1 LDA KBUFF,Y 
1730 CMP #$8D 
1800 BEQ SCAN 
1810 CMP #3Ac 
1820 BEQ 

el INY 

1840 BNE .1 
1320 2 JMP SYNERR 
1870 # SCAN DIRECTORY FOR NAME 
1890 SCAN LDA #$60 
1900 STA 

1910 LDX #0 
1920 STX VOL 
‘Ann STX DIRSEC 
1940 

1950 

1960 

1340 

1980 

1990 

sa 


DIRSEC IS ZERO UNTIL A DELETED ENTRY aa 
THEN IT HOLDS THE SECTOR OF THAT ENTRY 
eee IT IS THE SECTOR OF THE ENTRY ACTUALLY USED. 


SET IOB BUFF ADDR & TRK 


2040 #---Read next directory sector--- 
O88 20 02 OB 2050 .1 JS F 
0856— AD FO B7 20600 LDA BUFFAD 
OB DP Ns eure CLC 
085A- 69 OB 2080 ADC #$0B 

2090 #---Point to next filename------- 
085i:- 85 72 2100 .2 STA PTR 


O85E- AO 00 2110 LDY #0 

0860- B1 72 2120 LDA (PTR) ,Y 1ST CHAR OF FILE ENTRY 
0862- FO 64 2130 BEQ BLANK BLANK ENTRY 

0864- CO FF 2140 CMP #$FF DELETED FILE? 

OB64- FO 26 2150 BEQ 

0868- Bi 72 2160 .3 LDA (PTR) ,Y 

086f- 99 77 00 2170 STA TST ,Y SAVE T/S & TYPE 

o86r- C 2180 INY 

086"- CO 0 2190 CPY #3 

0870- DO F 2200 BNE . 

o8Te- A2 00 2210 LDX f 

0874- Bi 72 2220 .4 LDA (PTR) ,Y COMPARE NAME IN FILE ENTRY 
0876- DD 00 02 2230 CMP KBUFF, X WITH INPUT NAME 

OB Te DO 1A 22 BNE .7 QUIT IF NO MATCH 

O087B- E8 2250 INX 

087C- C8 2260 INY 

087D- E4 71 2270 CPX NAMLEN DONE WITH INPUT NAME? 
O87F- 90 F3 2280 BCC .4 NO, GO DO REST 

0881- CO 21 2290 .5 CPY #$21 30 CHARS MAX + 3 

0883- FO 77 2300 BEQ FOUND 

0885- B1 72 2310 LDA (PTR) ,Y MAKE SURE REST OF ENTRY IS BLANK 
0887- C9 AO 2320 CMP #$A0 

0889- DO OA 2330 BNE . 

O88B- C8 2340 INY 

088C- DO F 2350 BNE .5 ALWAYS 

O88E- A5 7 2360 .6 LDA DIRSEC 

0890- DO 0 2370 BNE .7 

0892- 20 BA 08 2380 JSR SAVDIR SAVE POINTERS TO 1ST DELETED ENTRY 
0895- A5 72 2390 .7 LDA PTR 

0897 - 1 2400 CLC 

0898- 69 23 2410 ADC #$23 BUMP POINTER TO NEXT ENTRY 
089a- C9 OC 2420 CMP #$0C 

089C- DO 02 2430 BNE . 

O89E- E6 7 2h INC PTR+1 PAGE CROSSED 

O8A0- C9 B 2450 .8 CMP #$BB 

O8A2- DO BB 2460 BNE GO READ NEXT ENTRY 


Site #.--Next directory sector-------- 
O8A4- CE ED B7 24 DEC SECT NEXT SECTOR 


O8A7- FO 04 2490 BEQ .9 
O8A9- C6 7 2500 DEC PTR+1 
O8AB- DO A 2510 BNE .1 ALWAYS 
2520 ® HAVE NOW READ ALL DIR SECTS W/NO MATCH, NO BLANK ENTRIES 
O8AD- A 74 2530 .9 LDA DIRSEC ANY DELETED ENTRIES? 
O8AF- DO 03 25 BNE .10 YES, GO USE ONE 
O8B1- 4C 19 OB 2550 JMP FULL NO, DIRECTORY FULL, SO QUIT 
O8B4- EE ED B7 2560 .10 INC SECT RESET TO SECTOR 1 
O8B7- 4C CC 0 25 0 : JMP FE1 
O8BA- AD ED B7 2790 SAVDIR LDA SECT SAVE DIRECTORY POINTERS 
O8BD- 85 74 2600 STA DIRSEC 
O8BF- A5 72 2610 LDA PTR 
O8C1- 85 75 2620 STA FILPTR 
08¢ - A5 iB 26 30 LDA PTR+1 
08C5- 85 2640 STA FILPTR+1 
O8C7- 60 2650 RTS 
S660 Bacsess ote ee eae ee 
26 0 # USE FILE ENTRY FOUND, OR BUILD NEW ONE 
O8C8- A5 74 2690 BLANK LDA DIRSEC USE DELETED ENTRY, IF ANY 
O8CA- FO OD 2700 BEQ FE2 NONE, GO USE BLANK ONE 
O8CC- CD ED B7 2710 FE1 CMP SECT FIND DELETED ENTRY 
O8CF- FO 0B 2720 BEQ FE3 IN CURRENT SECTOR, GO USE IT 
O8D1- 8D ED B7 2730 STA SECT NOT HERE. GO BACK & GET IT 
O8D4- 20 02 OB 2740 JSR R.W 
O8D7- 90 03 2750 BCC FE3 ALWAYS 
OBR: AO ba oreo ees. Poe gAVDER MOVE NAME TO ENT 
S NTRY 
O8DE- A2 58 5440 LDX 3 
O8EO- BD 00 02 2790 FEY LDA KBUFE X 
OBE3- 91 75 2800 STA (FILPTR) ,Y 
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For Those Who Want the Most. 
From Those Who Make the Best. GS-RAM* 


Now expand the IIGS’ RAM and ROM with up to8 MEG of “Instant On” memory with the all new GS-RAM! 


GS-RAM 
Plus™ 


GS-RAM has an all new design. A design that 
delivers higher performance including in- 
creased speed, greater expandability, and 
improved software. 
More Sophisticated, Yet 
Easier to Use 

GS-RAM works with all IIGs software. In fact 
any program that runs on Apple’s smaller 
memory card runs on the Gs-RAM. But with 
GS-RAM you can have more memory, im- 
proved performance, and almost unlimited 
expansion capabilities We've designed the 
new GS-RAM to be easier to use too—you 
don’t have to adjust the size of your RAM 
disk every time you use a DMA device. No 
other RAM card with more than 4 banks of 
memory installed can make the same daim. 


More than Just Hardware 

Each Gs-RAM and Gs-RAM Plus includes the 
most powerful set of IlGs software enhance- 
ments available anywhere. In fact, our nearest 
competitor offers only a fraction of the 
invaluable programs that we include with 
each Gs-RAM card This software includes the 
most powerful disk-caching program available, 
the Gs-RAM Cache. The Cache will make most 
of your applications run up to 7 &mes faster. 
Also induded is a diagnostic utility that lets 
you test your GS-RAM by graphically showing 
the location of any bad or improperly 
installed RAM chips. And for AppleWorks 
users, we give you our exclusive Expander 
program that dramatically enhances both the 
capabilities and speed of AppleWorks. 
Making AppleWorks Even Better 

Applied Engineering's Expander program 
eliminates AppleWorks internal memory limits 
allowing it to recognize up to 8 megabytes of 
desktop workspace. You can increase the 
limits from only 7,250 lines to 22,600 lines in 
the word processor and from 6,350 records 
to 22,600 records in the datahase. The 
Expander allows all of AppleWorks, induding 
print functions, to automatically load into 
RAM. The clipboard size will increase from 
255 to 2,042 lines maximum. Gs-RAM will 
automatically segment larger files so you can 
save them onto multiple floppies. And 


GS-RAM provides a built-in print buffer that 
allows you to continue working in Apple- 
Works while your printer is still processing 
text You can even load Pinpoint or Macro- 
Works and your favorite spelling checker into 
RAM for instant response. 


Grow by Kilobytes or Megabytes 

We offer Gs-RAM in two configurations so 
you can increase your memory 256K at a 
time (Gs-RAM) or a megabyte at a time 
(Gs-RAM Plus). Both are IIGs compatible and 
both come with our powerful enhancement 
software. GS-RAM can hold up to 1.5 MEG of 
256K chips and Gs-RAM Plus can hold up to 
6 MEG using 1 MEG chips. And since both 
use standard RAM chips (not high-priced 
SIMM’s), you'll find expanding your Gs-RAM 
or GS-RAM Plus easy, convenient, and very 
economical For further expansion, you can 
plug a 2 MEG “piggyback” card into the Gs- 
RAM’s expansion port for up to 3.5 MEG of 
total capacity. Or up to a whopping 8 MEG 
on GS-RAM Plus. If a Gs-RAM owner Outgrows 
3.5 MEG, he can easily upgrade to Gs-RAM 
Plus for a nominal charge. 


Permanent Storage for an 
“Instant On” Apple 

With our RamKeeper™ back-up option, 
your GS-RAM or GS-RAM Plus will retain both 
programs and data while your Ics is tumed 
off Now when you tum your [Ics back on, 
your favorite software is on your screen in 
under 4 seconds! With RamKeeper you can 
divide your IIGs memory into part “electronic 
hard disk,” and part extended RAM. Even 
change the memory boundaries at any 
time—and in any way—you want Because 


“In quality, 
performance, 
compatibility, 
expandability and 
support, Applied 
Engineering’s GSRAM 
and GSRAM Plus are 
number one.” 


Steve Wozniak, the creator 
of Apple Computer 


Applied Engineering has the most experience 

in the indusuy with battery-backed memory 

for the Apple, you are assured of the most 

reliable memory back-up system available. 

And in the word of battery-backed memory, 

Rekability is everything. That's why Applied 

Engineering uses state-of-the-art “GEL-CELL’s” 

instead of Ni-Cad batteries (if Ni-Cads aren't 

discharged periodically, they lose much of 

their capacity). RamKeeper has about 6 

hours of “total power failure” back-up time. 

That's 6 times the amount of other systems. 

But with power from your wall oudet, 

RamKeeper will back-up Gs-RAM, Gs-RAM 

Plus, or most other IIGs memory cards 

indefinitely. Should you ever have a “total 

power failure,’ RamKeeper switches to its 

6-hour battery. When power retums, Ram- 

Keeper will automatically recharge the battery 

to full power. RamKeeper incorporates a 

dualrate charger, status LED.’s, and ad- 

vanced power reducing circuitry. RamKeeper 

comes complete with battery, software, and 

documentation. 

GS-RAM’s Got it ALL! 

e 5-year warranty — parts & labor 

e 6 RAM banks (most cards have 4) 

e Memory expansion port 

e ROM expansion port 

e Ulta fast disk caching on ProDOS 8 AND 
ProDOS 16. 

e Expands AppleWorks intemal limits 

e Includes hi-res self test 

e No soldered-in RAM chips 

e Expandable to 8 MEG 

e No configuration blocks to set 

e RamKeeper back-up option allows 
permanent storage of programs & data 

e 15-day money-back guarantee 

e Proudly made in the USA 


GS-RAM with 256K 
GS-RAM with 512K 
GS-RAM with 1 MEG 
GS-RAM with 1.5 MEG 


GS-RAM with 2.5 to 3.5 MEG 
Gs-RAM Plus with 1-8 MEG 
RamKeeper Option 


Order today! 

See your dealer or call Applied Engineering 
today, 9 am. to 11 pm 7 days Or send 
check or money order to Applied Engineering, 
MasterCard, VISA and C.O.D. welcome. 

Texas residents add 7% sales tax. Add $10.00 
outside USA 


AG. APPLIED ENGINEERING” 
The Apple enbancement experts. 


(214) 241-6060 


P.O. Box 798, Carrollton, TX 75006 
Prices subject to change without notice 


GSRAM, Gs-RAM Plus and RamKeeper are wademarks of Applied Engineering, Other brands and product names are registered wademarks of their respective holders. 
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O8E6- E8 2820 INX 
ie nee 
O8EB- CO 21 2850 FE5 CPY #321 30 CHARS MAX + 3 
O8ED- FO 07 2860 BEQ FE6 DONE 
O8EF- AQ AO 2870 LDA #$A0 BLANK REST OF NAME FIELD 
O8F1- 91 15 28 0 STA (FILPTR) ,Y 
O8FE- DO F5 2960 BNE FE5 ALWAYS 
O8F6- AS FF 2910 FE6 LDA #$FF 
O8F8- 85 79 2920 STA TYP RAISE NEW ENTRY FLAG 
O8FA- 30 11 2930 BMI RVT ALWAYS 
O8FC- A5 79 2940 FOUND LDA TYP CHECK FILE TYPE 
O8FE- FO OA 2950 BEQ FEB UNLOCKED TEXT FILE, USE IT 
: 00 c9 80 5s 0 CMP ¢ 80 LOCKED TEXT FILE? 
0904- 4C 22 OB 2 ho JMP TYPERR WRONG TYPE 
0907- 4C 1C OB 2990 FE JMP LOCK 
O$0A- 20 BA 08 i019 FE JSR SAVDIR SAVE FILE ENTRY POINTERS 
020 # READ VTOC AND INIT COUNTERS & POINTERS 
090D- 20 Dt OA Solo RVT JSR VTIOB SET IOB BUFF ADDR & SECT 
0913- A2 0 3080 LDX #0 INITIALIZE... 
0915- 8E BB B3 3070 STX VTOC VTOC CHANGE FLAG 
0918- 86 72 3080 SIX PIR FILE SECTOR COUNTER, 
- + 
i eet ie ER Biv or nara russ, 
. A 
0920- BS 7B 3120 STA Vi INDEX FOR READING VTOC 
0924- ae 7E 3180 STA VITRK CURRENT TRACK FOR VTOC 
0926- AD 33 OB 3150 LDA NSEC NO OF SECTORS IN TESTFILE 
0929- 85 3 : STA CTR 
1Bo # READ T/S LIST INTO TSB, OR BUILD NEW ONE 
092B- CA 200 DEX 
092Cc~ 86 7A 210 STX NTSL SET UP T/S LIST COUNTER 
220 # NTSL WILL BE ONE LESS THAN NO OF SECTORS USED FOR T/S LISI. 
O92E- AS 79 32 0 LDA TYP NEW OR OLD FILE? 
0930- DO 17 210 BNE TS2 NEW, GO BUILD T/S LIST 
0932 AS TI 250 LDA TST OLD, READ T/S LIST 
0934- 8D EC B7 3260 STA TRK 
Ga30- Bb kb By Sebo STA SECT 
O93 20 E1 OA #290 TS1 JSR TSIOB SET UP IOB BUFF ADDR 
Sonne o> he Bh 3330 sgh RWS me 
0947- 90 3 3330 BCC TS5 ALWAYS 
0949- 20 6A OA 3340 TS2 JSR GETFREE SECT FOR T/S LIst 
094C- 3350 TS3 SET A4L,TSB BUILD T/S LIST IN TSB 
095 20 D6 B7 360 JSR 2BU FE CLEAR IT FIRST (RETURNS Y=0) 
0959- 10 o¢ 3340 BPL TS5 NEXT LINES ONLY ONCE 
095D- B9 77 00 BBO TSh —sLDA TST Y 
09 O- | 715 410 STA (FILPTR),Y SET TYPE & T/S FOR NEW FILE 
0962- 420 INY 
goee- 60 fe sane BNE TS& 
0967- AO 03 3450 TS5 —sLDY $3 
0969- 20 07 OA 3460 JSR SAVTS LABEL T/S LIST W/ITS OWN DISK LOCN 
096C- 20 14 OA 3470 JSR INCPTR BUMP FILE SECTOR COUNTER 
096F- EG 7h 3480 INC NTSL AND T/S LIST COUNTER 
0973- 85 7F 3500 : STA TSPTR INIT T/S POINTER 
520 ® WRITE A DATA SECTOR FROM BUFF 
0975- 32% WD1 ->SET ASL. BUFF 
097D- 20 D6 BT 3550 JSR ZBUFF CLEAR DATA BUFFER (RETURNS Y=0) 
0980- A2 10 3560 LDX #$10 TEST MSG REPEATED 16X PER SECTOR 
0982- 86 79 3570 STX TYP 
O984- CA 3580 DEX 
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SPECIAL !!! EXPANDED RAM/ROM BOARD: $39.00 
Similar to our $30 RAM/ROM dev board described below. Except this board has two sockets to hold your choice 
of 2-2K RAM, 2-2K ROM or even 2-4K ROM for a total of 8K. Mix RAM and ROM too. Although Apple limits 
access to only 2K at a time, soft switches provide convenient socket selection. Hard switches control defaults. 


IMPROVED 111! JL IN A MAC (ver 2.0): $75.00 
Now includes faster graphics, UniDisk support and more! Bi-directional data transfers are a snap! This Apple I! 
emulator runs DOS 3.3/PRODOS (including 6502 machine language routines) on a 512K MAC or MACPLUS. All 
Apple |i features are supported such as HI/LO-RES graphics, 40/60 column text, language card and joystick. 
Also included: clock, RAM disk, keyboard buffer, on-screen HELP, access to the desk accessories and support 
for 4 logical disk drives. Includes 2 MAC diskettes (with emulation, communications and utility software, plus 
DOS 3.3 and PRODOS system masters, including Applesoft and Integer BASIC) and | Apple II diskette. 


SCREEN.GEN: $35.00 
Develop HI-RES screens for the Apple || on a Macintosh. Use MACPAINT (or any other application) on the MAC to 
create your Apple {Il screen. Then use SCREEN.GEN to transfer directly from the MAC to an Apple {i (with 
SuperSerial card ) or lic. Includes Apple II diskette with transfer software plus fully commented SOURCE code. 


MIDI-MAGIC for Apple //c: $49.00 
Compatible with any MIDI equipped music keyboard, synthesizer, organ or piano. Package includes a MiDl-out 
cable (plugs directly into modem port - no modifications required!) and 6-song demo diskette. Large selection of 
digitized QRS player-piano music available for 19.00 per diskette (write for catalog). MIDI-4AGIC compatible 
with Apple Il family using Passport MIDI card (or our own input/output card w/drum sync for only $99.00). 


FONT DOWNLOADER & EDITOR: $39.00 

Turn your printer into a custom typesetter Downloaded characters remain active while printer is powered. 
Use with any Word Processor program capable of sending ESC and control codes to printer. Switch back and 
forth easily between standard and custom fonts. Special functions (like expanded, compressed etc.) supported. 
Includes HIRES screen editor to create custom fonts and special graphics symbols. For Apple Ii, il+, //e. Specify 
printer: Apple imagewriter Apple Dot Matrix, C.ltoh 8510A (Prowriter), Epson FX 80/85, or Okidata 92/192. 
* FONT LIBRARY DISKETTE #1: $19.00 contains lots of user-contributed fonts for all printers 
supported by the Font Downloader & Editor. Specify printer with order. 


DISASM 2.2e : $30.00 ($50.00 with SOURCE Code) 
Use this intelligent disassembler to investigate the inner workings of Apple || machine language programs. 
DISASM converts machine code into meaningful, symbolic source compatible with S-C, LISA, ToolKit and other 
assemblers. Handles data tables, displaced object code & even provides label substitution. Address-based triple 
cross reference generator included. DISASM is an invaluable machine language learning aid to both novice & 
expert alike. Don Lancaster says DISASM is “absolutely essential” in his ASSEMBLY COOKBOOK. 


The ‘PERFORMER’ CARD: $39.00 ($59.00 with SOURCE Code) 
Converts a ‘dumb’ parallel printer 1/F card into a ‘smart’ one. Simple command menu. Features include 
perforation skip, auto page numbering with date & title. large HIRES graphics & text screen dumps. Specify 
printer: MX-80 with Graftrax-80, MX-100, MxX-80/100 with Graftraxplus, NEC 98092A, C.Itoh 8510 
(Prowriter), OkiData 82A/83A with Okigraph & OkiData 92/93. 


‘MIRROR’ ROM: $25.00 ($45.00 with SOURCE Code) 
Communications ROM plugs directly into Novation’s Appie-Cat Modem card. Basic modes: Dumb Terminal, 
Remote Console & Programmable Modem. Features include: selectable pulse or tone dialing. true dialtone 
detection, audible ring detect, ring-back, printer buffer, 80 col card & shift key mod support. 

RAM/ROM DEVELOPMENT BOARD: $30.00 
Plugs into any Apple slot. Holds one user-supplied 2Kx@ memory chip (6116 type RAM for program development 
or 2716 EPROM to keep your favorite routines on-line). Maps into $CnO00-CnFF and $C@00-CFFF. 
C-PRINT For The APPLE //c: $69.00 


Conrect standard parallel printers to an Apple //c serial port. Separate P/S included. Just plug in and print! 


Unless otherwise specified, all Apple Il diskettes are standard (not copy protected!) 3.3 DOS. 
Avoid a $3.00 handling charge by enclosing full payment with order. VISA/MC and COD phone orders OK. 


RAK-WARE 41 Ralph Road W. Orange NJ 0/052 (201) 325-1885 
CEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEESE 
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0985 - BD 34 OB 590 WDO LDA TEXT,X FILL BUFFER WITH TEXT 
0988- 99 0 96 0 STA BUFF, Y 
098B- C 610 INY 
098C- CA 620 DEX 
098) 10 F6 6 30 BPL WDO 
098F- C6 19 0 DEC TYP 
0991- FO 650 BEQ WD2 BUFFER FULL 
0993- A2 OF 660 LDX #$0F 
0995- 10 EE 3670 BPL WDO ALWAYS 
0997- C6 81 3680 wD2 DEC CTR 
0999- DO 02 3690 BNE WD3 
099B- E6 80 700 INC EOD NO MORE DATA COMING 
099D- AY 7F 3710 WD3 LDY TSPTR 
099F- BO 00 97 120 LDA TSB,Y GET NEXT T/S PAIR 
O9A2- FO 0 BEQ WD NONE. GO FIND A FREE SECTOR 
OOAN- 8D EC B7 3740 STA TRK GOT IT. SAVE TRACK... 
O9A7- C8 3190 INY 
O9A8- BO 00 97 3760 LDA TSB,Y 
OOAB- 8D ED B7 3179 STA SECT AND SECTOR 
O9AE- C8 780 INY UPDATE T/S POINTER 
O9AF- 84 7F 3790 STY TSPTR AND SAVE IT, TOO. 
OOB1- DO 14 00 BNE WD5 ALWAYS 
09B3- 20 6A OA 3810 WD4 JSR GETFREE SECTOR FOR DATA 
OOBb- AY 7F 20 LDY TSPTR 
OOB8- 20 07 OA 38 0 JSR SAVTS PUT T & S IN T/S LIST 
OOBB- 84 7F 840 STY TSPTR 
O9BD- A5 17 3890 LDA TST AND IN IOB ALSO 
OOBF- 8D EC B7 3860 STA TRK 
09C2- A5 78 3870 LDA TSS 
O9CK- 8D ED B7 3880 STA SECT 
09c7- 3890 WD5 >SET BUFFAD,BUFF 
O9Di- AQ 02 3900 LDA #2 
09D3- 8D F4 B7 3910 STA OPER WRITE 
O09Db- 20 02 OB 3920 JSR R.W DATA SECTOR TO DIS 
O9D9- 20 14 OA 3930 JSR RNCPTR BUMP FILE SECTOR COUNTER 
O9DC- A5 80 9h0 LDA EOD END OF DATA? 
O9DE- DO 3B 3950 BNE RC1 YES, GO RESTORE CATALOG 
O9EO- AS 7F 3960 LDA TSPTR END OF T/S LIST? 
O9F2- DO 91 3979 BNE WD1 GQ aGet MORE DATA 
OOEN- AD 01 97 0 LDA TSB+1 vee K FOR NEXT LIST 
O9E7- FO 0C 3 90 BEQ WD6 NONE reo. BUILD ONE 
O9E9- 8D EC B7 4600 STA TRK E T/S OF NEXT LIST... 
O9EC- AD 02 of 4010 LDA TSB+2 
OOSEF- 8D ED 4020 STA 
O9F2- 4C 3C 09 4030 JMP TS1 THEN GO READ 
OOF5- 20 6A OA 4O40 wWD6 JSR GETFREE SECTOR FOR NEW. T/S LIST 
OOFB- AO 01 4050 LDY #1 
OOFA- 20 07 OA 4060 JSR SAVTS SAVE LINKS IN CURRENT T/S LIST 
OOFD- 88 Hor DEY 
O9FE- 8C F4 B7 4080 STY OPER WRITE 
OAO1- 20 EC OA 4090 JSR SAVTSB CURRENT T/S LIST TO DISK 
OAO4- 4C 4C 09 4100 . JMP TS3 GO BUILD NEXT T/S LIST 
SAT 88 BD on tay SATS LO 

vr ? 
OAOC- a 4iko INY 
OAOD- A5 78 4150 LDA TSS 
OAOF- 99 00 97 4160 STA TSB,Y 
OA12- C 4170 INY 
0A13- 60 4130 . RTS 
OA14- E6 q 4200 INCPTR INC PTR 
OA16=- DO 02 4210 BNE 
OA18- E6 4220 INC PTR+1 
OA1A- 60 42 9 1 RTS 

42 0 ® RESTORE CATALOG SECTORS TO DISK 

OA1B- AO 21 4270 RC1 LDY #$21 MOVE FILE LENGTH TO CATALOG ENTRY 
OAID- AS 72 4280 LDA PTR 
OA1F- 91 75 4290 STA (FILPTR),Y 
OA21- C8 4300 INY 
OA22= AS 73 4310 LDA PTR+1 
OA24- 91 75 4320 STA (FILPTR),Y 
OA26~- 20 C1 OA 4330 JSR DIRIOB SETUP BUFF ADDR & TRK 
OA29- AS 74 4340 LDA DIRSEC 
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RamFactor 


The Ultimate Slot 1-7 Memory Card 


Rana is automatically recognized as 
additional workspace memory by Apple- 
Works 1.3 and 2.0. In addition, RamFactor’s 
memory can be used for creating the 
ultimate in program speed—a lighming-fast 
RAMdisk for the Apple Ilcs, Ile, II+, Franklin 
and Laser 128. A RAMdisk does not depend 
on the slow moving parts of a conventional 
floppy drive. RAMdisks eliminate wear and 
tear on your disk drive plus your programs 
run up to 20 times faster! When a program is 
in RAM, your computer won't have to search 
for it in the mechanical disk drive during 
program operation. With RamFactor, you can 
have up to 9 seperate simultaneous RAM- 
disks—even in different operating systems! 
Now you can instantly switch from one 
program to another or even switch from 
AppleWorks to DOS 3.3 to CP/AM to Apple 
Pascal 1.3 to ProDOS. 


Apple Memory Expansion Card 
Compatible 


RamFactor is 100% Apple Memory Expan- 
sion Card compatible. This means that 
software designed for Apple’s card is auto- 
matically compatible with RamFactor. Thou- 
sands of software programs—induding Ap- 
pleWorks, Pinpoint, MacroWorks, MultiScribe, 
and Managing Your Money—can take ad- 
vantage of the speed and performance 
RamFactor provides. But with Apple’s card, 
you can have only one RAMdrive partition 
instead of the 9 simultaneous RAMdrives that 
RamFactor offers. And that’s only part of the 
story... 

2.0 AppleWorks Power 

Other slot 1-7 cards can give AppleWorks a 
larger desktop, but that’s the end of their 
story. RamFactor provides many more power- 
ful functions. It’s the only slot 1-7 card that 
increases AppleWorks 2.0 intemal limits by 
increasing the maximum number of records 
in the database to 22,600, increasing the 
maximum number of lines permitted in the 
word processor to 22,600, and expanding the 
dipboard size to 2,250 lines maximum. 
RamFactor is the only standard slot card that 
will automatically load all of AppleWorks into 


eliminating the time required to access the 
program disk. It will even display the time 
and date on the AppleWorks screen with a 
ProDOS clock. RamFactor will automatically 
segment large files so they can be saved on 
multiple 5%” and 3%” floppies or a hard 
disk All this performance is available for the 
Apple Ile, Laser 128, Franklin or 64K Apple II 
Plus when used with an 80 column card. No 
other standard slot card comes dose to en- 
hancing AppleWorks so much. 

The “Electronic Hard Disk” 

% RamCharger is an Op- 
tional battery back-up 
device, (about the 
size of a disk drive), 
that can plug into a 
connector on Ram- 

. Factor. With Ram- 
Charger added to RamFactor, your program 
will appear almost instantaneously when you 
tum on your computer. RamCharger contains 
LED's that let you know RamFactor’s reserve 
power status. Since RamCharger has its own 
builtin power supply, it can retain RamFac- 
tors memory indefinitely. Pius, RamCharger’s 
battery will continue backing up RamFactor’s 
memory for up to 10 hours during power 
that allows one RamCharger to power two 
fully expanded RamFactors. 


If 1 MEG Isn’t Enough 


A 4 MEG Ram Factor Expander can be 
plugged into the expansion port on Ram- 
Factor for up to 5 MEG’s total RamFactor 
Expander uses standard 1 MEG chips and 
can be expanded in 1 MEG increments. With 
the addition of RamCharger, both RamFactor 
and the expander will provide up to 5 MEG’s 
of lightming-fast battery backed storage. 
Features 
e Compatible with Apple lics, Ile, II+, 

Franklin and Laser 128 
e 256K to 1 MEG on main board with 256K 


memory chips, expansion port supports up 
to 5 MEG with Expander option 

e 100% Apple Memory Expansion Card 
compatible 

e RamCharger battery back-up option avail 
able for permanent storage 

e Reduces power strain to intemal power 
supply with RamCharger option 

e Fully socketed and user upgradeable 

e Expands intemal limits of AppleWorks 2.0 

e Automatically recognized by ProDOS, DOS 
3,3, Apple Pascal 1.3 and CP/AM 

e Built-in RAMDrive software (true RAMdisk 
not disk caching) 

e Graphic memory test induded 

e Allows Apple II+ to run AppleWorks 2.0 
without buying additional software 

e Automatically recognized by AppleWorks 
1.3 and 2.0 

e Fits in any 1/O slot except slot 3 

e 5 year warranty — parts and labor 

e Proudly made in the USA 


RamFactor with 256K 
RamFactor with 512K 
RamFactor with 1 MEG 
RamFactor Expander with 


$249 
$319 
$459 


1-4 MEG CALL 
RamCharger backup option $179 
*“Y” cable $24 


(Allows one RamCharger to power two RamFactors.) 


Order RamFactor today... with 15 day 
money back guarantee and our five year 
watranty. See your dealer or call (214) 
241-6060, 9 am. to 11 pm, 7 days, or send 
check or money order to Applied Engineering. 
MasterCard, VISA and C.O.D. welcome. Texas 
residents add 7% sales tax. Add $10.00 if 
outside USA 


HE APPLIED ENGINEERING” 


The Apple enbancement experts. 
(214) 241-6060 


P.O. Box 798, Carrolitton, TX 75006 
Prices subject to change without notice. 


RamFactor and RamCharger are registered trademarks of Applied Engineering. Other brands and product names are registered trademarks of their respective holders. 
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ote aD BD BT ee POA Be 
OA30- 8D F4¥ BT 4370 STA OPER WRITE 
OA3- DD 02 Ob 4Zb0 JSR R.W DIRECTORY SECTOR TO DISK 
OA é- AN TR 4390 LDY TSPTR CLEAR REST OF T/S BUFFER 
OA38- FO 460 BEQ RC3 
OAZA- A9 0 4410 LDA #0 
OA3C- 8 00 97 4420 RC2 «STA TSB, 
Ohio. bo Be OA ito RC OA SAVTSB SAVE T/S LIST TO DISK 
DANS. AD BB BS 4ueO > = OEDR VrOC VTOC CHANGE FLAG 
oANg- FO 16 A470 BEQ RC SKIP VTOC IF UNCHANGED 

A- 
OANC- 8D BB B3 4490 STA VTOC CLEAR CHANGE FLAG 
OALF- 4560 >SET BUFFAD,VTOC 
a oo St 
OASD- 20 FC OA 4530 JSR CALL.RWTS.AY WRITE VTOC TO DISK 
Ooo BB Os meeg RCH ORDA EOD. 
gAoa Re 3 op W2eo JMP FULL DISK FULL ERROR IF NOT END OF DATA 
OA67- 4C D3 03 45 O EXIT _JMP COLDOS EXIT TO BASIC 

4590 # ROUTINE TO SCAN VTOC FOR NEXT FREE SECTOR 

Sube= AB TE 828 GETPREELEDY VY 
OA6D- BO BB B3 4630 LDA VTOC,Y 
OAT. 8 ies0 BEY 
0A72- 79 BB B3 4660 ADC VTOC,Y TRACK FULL? 
OAT5- DO 11. 4670 BNE V2 NO. GO FIND FREE SECTOR 
OA7T7- BO OF 4680 BCS V2 THEY COULD ADD TO ZERO! 
OAT9- 86 46.90 DEY YES, TRY NEXT ONE 
OATA- 4760 DEY 
OATB- C6 7E  ——-4710 DEC VTTRK 
OA7D- CO 42 ~=—- 4720 CPY $42 DON'T LOOK BELOW TRK 3 
ae i | me 
OA83- 85 80 4750 STA EOD CLR FLAG TO FORCE DISK FULL ERROR 
OA85- 4C 1B OA 4760 JMP RC1 EXIT AFTER RESTORING CATALOG SECTORS 
OA88- BO BB B3 4770 V2 LDA VTOC,Y MOVE BIT MAP TO ROL BUFFER 
ge Be a 
OASE- BO BB B3 4800 LDA VTOC,Y 
[ie ia nto 
OAOL- 84 7B 4830 ST SAVE Y FOR NEXT TIME 
OA06- A2 OF  =-4BRO LDX #$0F SECTOR 
OAgB- Ag 80 4850. V5 LDA # 80 MASK BIT 
BAeps oe ee. ABR Oe vET 
OAGF- BO 06 48.90 BCS V4 FREE SECTOR FOUND 
OAAI- CA 4.960 DEX NOT FOUND, TRY NEXT ONE 
BERG OG EE. Nee bee V3 
OA; 5- BO F 4930 BCS V5 ALWAYS 
eae ge T t3 : v4 te TSS SAVE SECTOR 

[. - 
AKAD EO 08 «HOO CPX #8 USE 2ND MAP BYTE? 
OANC- 90 01 4970 BCC V6 NO, USE 1ST 

rE- 
OAFS- 49 FF «4990 V6 EOR #$FF COMPLEMENT AC 
OAR1- 39 BB B3 5000 AND VTOC,Y CLEAR BIT = SECTOR USED 
ME Be Gog A Fe bbbkte tt 
OA" 9 8D BB B3 5030 STA VTOC SET CHANGE FLAG 
OALE~ 85 77 5050 STA TST SAVE TRACK 
OACO- 60 5060 RTS 

5080 #  TIOB SET-UPS USED MORE THAN ONCE 


OAC1- AQ 11 5100 DIRIOB LDA #$11 

OAC3- 8D EC B7 5110 STA TRK 

OACO- 5120 >SET BUFFAD,DBUFF 

OADO- 60 2iea RTS 

OAD1-—- 5140 VTIOB SET BUFFAD,VTOC 

OADB- AX 00 5150 LDA #0 

OADD- 8D ED B7 5160 STA SECT 

OAEO- 60 gine RTS 

OAE1~- 5180 TSIOB SET BUFFAD, TSB 

OAEB- 60 5190 RTS 
5200 Sasenee—--ossseseseseeaessassseu- 
2530 # ROUTINE TO SAVE T/S LIST TO DISK 

OAEC- 5230 SAVTSB >SET BUFFAD, TSB 

OAF6— AD OB 97 5240 LDA TSB+ TRACK 

OAF9- AC O4 97 5250 LDY TSB+ SECTOR 
= : JMP CALL. RWTS.AY #88 FALL INTO IT ### 
550 ® RWTS CALLER. EXITS THRU DOS IF ERROR OCCURS. 
300 CALL. RWTS. AY 

OAFC- 8D EC B7 5310 K 

OAFF- 8C ED B7 5320 STY SECT 

OBO2- 20 E3 03 5330 R.W JSR GETIOB 

OB05—- 20 03 5340 JSR RWTS 

OBOS= AQ 0 5350 LDA #4 IRQ OFF, DECIMAL OFF 

OBOA- 85 5360 STA STATUS 

OBOC- BO 01 2 0 BCS .1 R/W ERROR 

OBOE- 60 0 RTS 

OBOF- AE F5 B7 5390 .1 LDX RETCOD 

OB12- EO 10 5400 CPX #$10 

OB149—- FO OE ense BEQ YERR 304 = WRITE PROTECT ERROR 

OB16— OA 420 ASL 08 = I/O ERROR 

OB17=- DO OB 2 : , BNE ANYERR ~e ALWAYS 

OB19=- AQ 09 5450 FULL LDA # 

OB1B- 2C 5460 -HS 

OB1C- AQ OA 5470 LOCK LDA #$0A 

OBIE~ 2C 5 HS 2 

OBIF- na OB Be SYNERR LDA #$0B 

OB21- 2 500 ~-HS 2 

OB22- ff OD 5510 TYPERR LDA #$0D 

OB24- 4 5520 ANYERR PHA 

OB25- 20 SE FD 5530 JSR CROUT 

OB26— 20 SE FD 55 JSR CROUT 

OB2B- 6 5550 PLA 

OB2C~- AA 5560 

OB2D- 20 02 af 5570 JSR DOSERR 

OB30~- AC D3 0 22 M . JMP COLDOS EXIT TO BASIC 
5800 ; Dummy data for demonstration 

OB33- 32 Be 18 NSEC ~HS 32 number of sectors in demo file 

OB34—- SD 5630 TEXT ~HS SD 

OB 37 AE D4 D 

OB38- C5 DN A 

OB3B- C1 AO D3 

OB3E- C9 AO DB 

OB41- C9 C8 D 2600 ‘ ~AS -/.TSET A SI SIHT/ 
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NowApple speaks IBM. 
Three Re faster than IBM. 


Introducing 
PC Transporter.” 
The Apple® II expansion 
board that lets you 
run MS®-DOS programs. 
Now your Apple II can run 
over 10,000 programs you could 
never use before. Like Lotus® 
1-2-3® MultiMate® GBASE II 
PLUS® Even Flight Simulator® 
With PC Transporter, MS-DOS 
programs run on your Apple I 
like they do on IBM® PC's or 
compatibles. With one important 
difference. PC Transporter runs 
most of those programs three 
times faster than an IBM PC/XT® 


Plus, to speed through number- 


crunching tasks, you can use 
our optional 8087-2 math co- 
processor chip. It plugs into a 
socket on the PC Transporter. 
Less expensive than an 
IBM clone. 
Sure, a stripped-down IBM 


clone costs about the same as 
the PC ‘Transporter. But the pe- 
ripherals it takes to get the clone 
up and running make the clone 
cost about three times what our 
American-made card costs. 

You don’t have to buy new 
hardware to use PC Transporter. 

Works with the hardware you 
already own. 

With PC Transporter, MS-DOS 
programs see your Apple hard- 
ware as IBM hardware. You 
can use the same hardware you 
have now. 

With IBM software, your Apple 
hardware works just like IBM 
hardware. Including your drives, 
monitors, printers, printer cards, 
clock cards and serial clocks. 


You can use your He® or HGs™ 
keyboard with IBM software. Or 
use Our Optional IBM-style key- 
board (required for the I Plus). 

You can use your Apple mouse. 
Or an IBM compatible serial 
mouse. 

Plenty of power. 

PC ‘Transporter gives you as 
much as 640K of user RAM 
and 128K of system RAM in the 
IBM mode. 

PC Transporter also is an Apple 
expansion card, adding up to 
768K of extra RAM in the Apple 
mode. The Apple expansion alone 
is a $300 value. 

Easy to install. 

You can install PC Transporter 
in about 15 minutes, even if 
you've never added an expansion 
board. You don’t need special 
tools. Simply plug it into an Apple 
expansion slot (1 through 7 ex- 
cept 3), connect a few cables and 
a disk drive, and go! 
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ABASE HAPs 


PC Transporter taps into the world’s largest 
software library, Now your Apple can 

run most Of the IBM software you use 

at work And it opens a new world of 
communications programs, games and 
bulletin boards 


A universal disk drive 
controller. 

PC Transporter supports 3.5” 
and 5.25” MS-DOS and ProDOS 
formatted diskettes. You'll shift in- 
stantly between Apple ProDOS 
and IBM MS-DOS. 

You'll need our versatile 5.25” 
360K drive system to run IBM 
applications from 5.25" floppy 
disks. Use your Apple 5.25” drive. 
for Apple 5.25” disks. 

An Apple Disk 3.5 Drive will 
support the new 3.5"disks 
whether they're IBM MS-DOS 
formatted or Apple ProDOS for- 
matted. The PC Transporter acts 
like an Apple Disk 3.5 Drive disk 
controller for Gs, We, and ll 
Plus users. 

PC Transporter supports 
up to 5 drives in a number of 
combinations. 

For example, you can connect 
a 5.25 Applied Engineering 360K 
dual-drive system directly to the 
card. Then plug two daisy-chained 
Apple 3.5 Drives (not the Apple 
UniDisk 3.5) to the dual-drive 
system. For a fifth drive, use a 
ProDOS file as an IBM hard disk. 


PC Transporter controls Apple and IBM 
compatible disk drives. It supports 3.5" and 
5.25 MS-DOS and ProDOS formatted 
diskettes. 


Versatile data storage. 

PC Transporter reads MS-DOS 
and translates it into Apple native 
ProDOS. You can store IBM pro- 
grams and data on any ProDOS 
storage device including the 
Apple 3.5 Drive, Apple UniDisk™ 
3.5, Apple 5.25” drive, SCSI or 
ProDOS compatible hard drives. 
(You can use the Apple UniDisk 
3.5 with its own controller card 
for storing programs and data, but 
not for directly booting an IBM 
formatted disk. ) 

You can even use our 360K PC 
compatible drive for ProDOS 


Make your Apple speak IBM. 


PC ‘Transporter memory choices. 
RAM in RAM in 

Apple mode: IBM mode: Price: 
384K 256K $489.00 
512K 384K 529.00 
640K 512K 569.00 
768K 640K 609.00 


Notc: The IBM mode is 128K less because 
the PC Transporter uses 128K for system 
memory. 


lics Installation Kit 


lie/l Plus 
Installation Kit 39.00 


PC Transporter Accessories 


5.25” IBM Format 360K 
Drive Systems 
Single-Drive System 
Dual-Drive System 399.00 
Half-Height Drive 135.00 


(add to Single-Drive system to make 


Dual-Drive ) 
IBM-Style Keyboard 139.00 


(required for Apple I Plus. Requires 
IBM Keyboard Cable. ) 
IBM Keyboard Cable 34.00 
Sony RGB Monitor 499.00 
Analog RGB Cable 39.00 
39.00 


49.00 


269.00 


(for use with Sony monitor ) 


Digital RGB Cable 


(for use with Sony monitor ) 
Digital RGB Adapter 
ColorSwitch 
(included with Hos Installation Kit) 
128K ZIP 40.00 
PC Transporter per set 
Memory Expansion 
Chip Set 
8087-2 Math 
Co-processor 
Chip 
Heavy Duty 
Power Supply 
(He and Ui Plus only ) 


229.00 
69.00 


See your dealer or call or send 
check or money order to Applied 
Engineering. MasterCard, VISA and 
COD welcome. Texas residents 
add 614% sales tax. 


SE SSPE RR EUROS 


PC Transporter produces better IBM graphics 
than IBM. Analog is sharper than digital 
So with an analog RGB monitor, PC 
Transporters CGA graphics and text are 
supertor to IBM digital display — even 
while running IBM software! 

And, you can also use an Apple composite 
monitor in IBM text or graphics mode. 


storage and a 143K Apple 5.25” 
drive for MS-DOS storage. 

Created by Apple's original 

designers. 

The brains behind PC Trans- 
porter were also behind your 
Apple II. 

The PC Transporter design 
team includes the former project 
managers for the creation of the 
Apple He and IIc. The co-designer 
of the Apple II disk controller. 
And the first full-time Apple 
programmer and author of the 
ProDOS operating system. 

So you know the PC Trans- 
porter and your Apple were made 
for each other. 

Support and service from the 
leader in Apple add-ons. 

Applied Engineering sells more 
Apple peripheral boards than any- 
one else — including Apple 
Computer. So you know we'll be 
around after the sale. 

PC Transporter comes with a 
15-day money back guarantee. If 
you’re not fully satisfied after 
using it, return it for a full refund. 
PC Transporter also comes with a 
1-year warranty. 

How to get your PC 
Transporter today. 

See your dealer. Or call Applied 
Engineering any day between 
9 a.m. and 11 p.m. CST at 
214-241-6060. 


Fras oa Applied Engineering 
The Apple enbancement experts. 


PO. Box 798, Carrollton, TX 75006 
214-241-6060 


A Divesion of AE Rescarch Corporation. 


Apple 1D Plus must be OO Condied THM and PUNT ase squstered tradcnaks of Intemational Baswioss Machines Lagus and 24 are copitered: tradcoirks of fadus Davclopmecnt Conpodaien Mulu Mate and dHAN HEPES are reygystoncd 
teaabonvarks of Ashton Tate ine MS and Alqgit Sulates are copstered Gradenarks ad Microsalic Apple fhe and Prob are ropintered (radkemarks and HGS and CaiDisk anc trademarks of Apple Computer 
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A Strange Decimal-to-Binary Conversion....Bob Sander-Cederlof 


Back in the 1950's I worked for a few years with the Bendix 
G-15D Computer. This machine was the ultimate personal 
computer of its day. The operator console consisted of an IBM 
Executive typewriter, with a few added switches. Mass storage 
waS supplied by paper tape, both in loose coils and in 
cassettes (roughly the physical size of our present day VHS 
video cassettes). You got 2176 words of RAM, each with 29 
bits, on a rotating magnetic drum. Let's see...that is less 
than 8K bytes. The three two-word registers and one one-word 
register also resided on the magnetic drum. The hardware 
instruction set included multiply and divide, and also some 
sophisticated logical field extraction operations. Speed? 
Well, it was plenty fast enough for its day. The basic unit, 
as described above, cost $50,000. In those days that was a 
very good price for a real computer, and engineering groups all 
over the country bought them with alacrity. You could also add 
a magnetic tape unit, a Calcomp X-Y plotter, a Digital 
Differential Analyzer, and more. 


Believe it or not, during the entire lifetime of the product, 
which was over ten years, nobody ever wrote an assembler for 
the G-15. You had to program it either in raw hex, in a 
decimalized translation of the raw hex, or in an interpretive 
language. (We did eventually get the equivalent of a 
mini-assembler, with the auspicious name of "Altran".) The 
various intepretive languages supplied floating point math and 
simplified I/O, but it still looked like raw machine language. 
Everything was done with numbers, you could not use symbolic 
names for opcodes or operands. 


There was one significant exception. In the early 60's a group 
of geniuses created a version of Algol for this machine. The 
compiler consisted of eight magazines full of paper tape! In 
case you never heard of Algol, you can think of it as the 
predecessor of Pascal. 


In the middle 60's Control Data Corporation bought out the 
computer division of Bendix, and a few West Coast salesmen got 
the bright idea that these old beasts could get a second life 
in high schools and Junior Colleges. Part of my job at that 
time was to train high school teachers in using the G-15 and 
programming with one of the interpreters. Some of you may 
remember the name of Bob Albrecht, from the late 70's, the 
early days of Dr. Dobbs; he was also quite active in this 
project of setting up high schools with G-l15s. 


Well, anyway, you could do a lot with just a little back in 
those days. I stumbled over a pile of old G-15 manuals a few 
weeks ago, and out popped this fascinating decimal-to-binary 
conversion subroutine. I decided it was worth the effort to 
translate it into 6502 code. It converts a string of seven 
decimal digits in packed BCD form (or eight if you select the 
option in line 1050) to a 32-bit (29 in the G-15) binary value. 


In my program I simulate the three two-word registers with 
four-byte variables named PLIER, CAND, and PROD. It is not as 
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many bits (32 bersus 58), but this program only needs 32 bits 
in each register. The code for the conversion is shown below 
in lines 1680-1960. When you realize that the EXTRACT and 
MULTIPLY subroutines I call here were simple machine language 
instructions in the G-15, you can see that the program was very 
compact in that machine. The EXTRACT subroutine simulates the 
G-15 instruction, which uses a binary mask to produce two 
results at once. The PROD (product) register is ANDed with the 
mask and the result stored in the CAND (multiplicand) register. 
After that, everywhere there are l-bits in the mask the 
corresponding bits are cleared in the PROD register. For 
example, start with PROD = $12345678 and MASK = SOFOFOFFF. 
Afterwards CAND = $02040678 and PROD = $10305000. 


The G-15 multiply instruction was unique, in that it could be 
told how many bits to multiply. My subroutine simulates that 
property by using the X-register to specify how many times to 
loop around, once for each bit. MULTIPLY adds the CAND*PLIER 
partial products to the PROD register. 


There a a few secrets hidden in the value assembled at FACTOR. 
To simplify and speed up my MULTIPLY subroutine, FACTOR 
contains the 1's complement of the actual factor. The actual 
factor for eight digits is SAAC9F400. This is used in pieces: 
four bits = SA, three bits = $5, six bits = $19, and nine bits 
= $7D. Note that SA is 10, $5 is 10/2, $19 is 250 or 100/4, 
and $7D is 125 or 1000/8. Is it starting to make sense now? 


If you look at the four masks, you will notice that the F's 
correspond to BCD digit positions. Think of the digit 
positions as D7 through DO, left to right. MASKO causes digit 
D7 to multiplied by ten; MASK1l causes digits D7, D6, D4, and Dl 
to be multiplied by ten; MASK2 causes digits D7, D6, D5, and D2 
to be multiplied by 100; and MASK3 causes digits D7 through D3 
to be multiplied by 1000. The result is the same as D7*10°7 + 
D6*10°6 + ... + D1*10 + DO. 


D7: 10*10%*100*1000 = 10°77 
D6: 10*100*1000 = 1076 
D5: 100*1000 = 10°5 
D4: 10 *1000 = 10°4 
D3: *1000 = 10°3 
D2: *100 = 10°2 
Dl: *10 = 10°1 
DO: untouched = 10°0 


I hope I haven't lost you. If I have, please go back and read 
it again. I think it is really worth the effort! The idea of 
uSing an unfinished multiply simply MUST have other 
applications.... 


My demonstration program starts in line 1130. It allows you to 
type in a decimal number, and then prints the converted value 
in hex. Lines 1260-1570 read your input line and pack up the 
digits as BCD in the PROD register. Lines 1590-1660 print the 
four bytes of PROD in hex. 
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1000 SAVE FUNNY. CONVERT. 1 
1323 ® CONVERT 7. 0R 8-DIGIT PACKED BCD VALUE 
1030 8 10 BINARY 
1080 EIGHT EQ =1 FOR 8 DIGITS, =0 FOR 7 DIGITS 
1060 eect eeteceweese ss 
1070 MON.RDLINE .EQ $FD67 
1080 MON.PRBYTE .EQ $FDDA 
1090 MON.COUT  -EQ $FDED 
1100 INBUF "EQ $200 
1110 MON.PROMPT .EQ $33 
Woes 
20 1¢ 08 1180-1 JSR GET.BCD. VALUE 
O16 1 1150 BCC .2 FINISHED 
20 56 08 1160 JSR DISPLAY. PROD 
pero ie BF bagcom 
20 ED FD 1200 JSR MON .COUT 
20 64 08 1210 JSR FUNNY. CONVERSION 
20 56 08 1220 JSR DISPLAY . PROD 
4C 00 08 1230 JMP .1 
60 1240 2 RTS 
1280 GET.BCD.VALUE 
AQ BD 1270 LDA #"=" 
B5 33 ap 1389 STA MON . PROMPT 
20 67 FD 1290 JSR MON . RDLINE 
E001 ~=—- 1300 CPX #1 SEE IF EMPTY LINE 
90 2F 1310 BCC .4 ».. YES 
A2 0 1320 LDX #4 CLEAR PROD FIRST 
AQ 00, 1330 LDA #0 
gb £0 08 1380.4 STA PROD-1,,X 
DO FA —- 1360 BNE .1 
1370 §=--ACCUMULATE NUMBER----------~- 
BD 00 02 1380 .2 LDA INBUF, X 
49 BO 1390 EOR #70" 
C9 0A =: 100 CMP #10 
BO 1B =. 1410 BCS .4 
OA 1420 ASL POSITION IN HIGH NYBBLE 
OA 1430 ASL 
OA 1150 ASL 
go 88, Be 
SE EY 08 1460” ROL PROD+3 
2E E3 08 1490 ROL PROD+2 
2E E2 08 1500 ROL PROD+1 
26 E1 08 1510 ROL, PROD 
EB. 642 ho TNX "> 
BO 08 1550 CPX #8 
ODc 1560 BCC .2 
0 1579 4 RTS 
1590 DISPLAY . PROD 
AQ 00 ‘1600 LDY #0 
BO E1 08 1610 .2 LDA PROD,Y 
20 DA FD 1620 JSR MON . PRBYTE 
CF on tea CPY #4 
0 F5 1650 BCC . 
0 1660 RTS 
1660 FUNNY. CONVERSION 
AQ 02, 1690 LDY #2 ONLY NEED 3 BYTES OF FACTOR 
B9 F5 08 1700 .1 LDA FACTOR,Y 
99 D9 08 1719 STA PLIER, 
10 F7 1730 BPL .1 
1750  .DO EIGHT 
A203 1760 LDX #MASKO 
20 97 08 1770 JSR EXTRACT 
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RamKeeper 


For the “Instant On” Apple IIs 


Permanent Storage with an 
“Electronic Hard Disk” 

Now when you tum on your HGS your 
favorite program can appear on screen 
in just a few seconds! With RamKeeper, 
vour IGS memory card will retain stored 
programs and stored data while vour 
lIGs is tumed off, RamKeeper allows you 
to divide your [IGS memory into part 
“electronic hard disk” and part RAM for 
your programs workspace—in almost 
any Way you want and at anytime you 
want GS-RAM, Gs-RAM Plus, Apple IIGs 
memory card and most other IIGs 
memory cards are compatible with 
RamKeeper. 


Supports Up to Two IIs Memory 
Cards at the Same Time 
If you bought your IIGs with Apple's 
memory card and later wished you had 
the Gs-RAM, no problem. RamKeeper will 
| support both cards plugged into Ram- 
Keeper simultaneoush? 


How it Works 
Just unplug vour IIGS memory card 


‘Tve purchased several 
Applied Engineering 
Products over the years 
They're always well 
made and performed 
as advertised. 1 
recommend them 
tobole- heartedly.” 


Steve Wozniak the creator 
of Apple Computer 


| 


| 
| 
| 
: 


°: 


amie oo 
# he (i % 
ee 


from your computer, plug your IIGs 
memory card into RamKeeper, plug 
RamKeeper into the IIGS memory slot If 
you have another IIGS memory card, an 
additional card socket on RamKeeper 
will accommodate your second card. 
That's all there is to it 


Reliability from the Most 
Experienced 

Applied Engineering has the most 
experience in the industry with battery- 


backed memory for the Apple so you are 


assured of the most reliable memory 
back-up system available. And in the 
wodd of battery-backed memory, reliabil- 
ity is everything! That's why Applied 
Engineering uses the more dependable 
Gel-Cell's instead of Ni-Cad batteries (if 
Ni-Cad’s aren't discharged periodically, 
they lose much of their capacity). 
RamKeeper has close to 6 times (about 
6 hours) the “total power failure” back- 
up time of other systems. When power 
retums, RamKeeper automatically re- 
charges the battery to a full charge. With 
power from your wall oudet, RamKeeper 
will back-up your IIGS memory cards 
RAM indefinately. 


RamKeeper Has and 

Does It All! 

e Allows instant access to your programs 
without slow disk delays 

e Configure Kilobytes or Megabytes of 
instant ROM storage for your favorite 
programs 


e Reduces power strain to your internal 
IGS power supph: 

e Contains back-up status LE.D.’s 

e Can support up to two IIGs memory 


| 
cards simultaneoush: 


e Supports both 256K <installed memory 
chip boards like Gs-RAM and the Apple 
IIGS Memory Expansion Card as well 
as 1 MEG installed memory chip 
boards like Gs-RAM Plus 

e 5-year hassle-free warranty 

e 15 day money back guarantee 

e Proudh: made in the USA 

e RamKeeper comes complete with 
battery, software and documentation 


Only $179.00! 
(G8-RAM card shown in photo 
not inchided) 


Order Your RamKeeper Today! 
See your dealer or call (214) 241-6060, 
9:00-11:00 CST, 7 days a week, or send 
| check or money order to Applied 
| Engineering MasterCard, VISA and 
| COD. welcome. Texas residents add 7% 
sales tax. Add $10.00 if outside USA 


| AE APPLIED ENGINEERING” 


| The Apple enhancement experts. 


(214) 241-6060 


P.O. Box 798, Carrollton, TX 75006 | 


Prices subject to change without notice 
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#4 MULTIPLY 4 CYCLES 
JSR MULTIPLY 


EXTRACT 
LDY #3 

1 LDA PROD,Y 
AND KS 


ROL PLIER MSBYTE 
BCS .3 -»-DO NOT ADD ‘CAND 


MASKS 
-DO EIGHT 
MASKO .EQ #-MASKS+3 
~-HS FO.00.00.00 
FIN 
MASK1 .EQ ®-MASKS+3 


-HS FF. OF.00.FO 
MASK2 .EQ ®-MASKS+3 


-HS FF.FO.OF.00 
MASK3 .EQ ®-MASKS+3 


.HS FF.FF.F0.00 
.DO EIGHT 

FACTOR .HS 55.36.0B.FF 10, 10, 100, 1000 

FACTOR .HS 53.60.BF.FF 10, 100, 1000 
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Global communications. 
Down-to-earth price. 


, & 
a 


Eh Reet ee ae 
: tee 
Ce a, 


& | Complies with part 68 of FCC Rules 
ECC Reg No, ~ EYWSQG-1828¢-MDE 


= & : é 
initio 


Introducing the Datalink“ modem. 
Get instant access to networks and databases 
— plus network memberships and discounts worth $177.95! 


Now you can tap into a world of information — without The compact design allows Datalink to fit in any slot — 
draining your resources. Our Datalink'* modem lets your Apple _ including slots 1 and 2 of the [IGS with a cooling fan 
IIGS, He or 1+ communicate with other computers, download _ installed. Datalink operates at 1200 or 300 baud. Built-in 


free software from networks and bulletin boards, access diagnostics check for accuracy of data transmission, and 
database services and more. For a remarkably low price. Datalink lets you track the progress of calls either elec- 
The world at your fingertips. tronically or via an on-board speaker. 

With the Datalink modem, you'll be able to draw informa- Introductory offers from popular networks included. 
tion from thousands of databases. Send and receive electronic When you purchase Datalink, you'll get a fee-waived mem- 
mail — even overseas. Join clubs and bulletin boards to bership to The Source worth $49.95. $60.00 worth of free 
exchange software or solve computing problems with other on-line time from News Net. A free $50.00 subscription to the 
Apple users. Download free public domain software. And Official Airline Guide. A free subscription to the GEnie net- 
share files with personal computers and mainframes. work worth $18.00! And information on MCI Mail. 


There’s nothing missing 

on Datalink. 

Unlike the Smartmodem® 
Datalink comes with its own easy- 
to-use Communications software 
in ROM and on disk that supports 
macros, file transfers, on-line 


lied < Order today! 
Appliec __Hayes™ To order or for more informa- 
Engineering Smartmodem act 

tion, see your dealer or call 

Datalink 1200A 

Applied Engineering today, 9 a.m. 
to 11 p.m. 7 days. Or send check 
Or money order to Applied 
Engineering. MasterCard, VISA 
time display, data capture and and C.0.D. welcome. Texas resi- 


datascope mode. The software Software included dents add 614% sales tax. Add 


ae H T $10.00 outside U.S.A. 
of phone numbers for auto dial- 

command set 

ing and log on. 


Because Datalink is 100% 
Super Serial Card compatible, you 
can also run virtually all other 
communication software, including | Fits any slot 
Point-to-Point. Apple Access and (even with fan) ES N Box 798, Carrollton, TX 75006 
ASCII Express, to name a few (214) 241-6060 


/FE Applied Engineering 


The Apple enbancement experts. 
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Getting a Pointer from a Handle...........Bob Sander-Cederlof 


Did you read "Let's Get a Handle on this Memory", by Ken 
Kashmarek in the October 1987 Call APPLE, pages 61-63? Ken 
ably discusses what "Handles" and “Pointers" are in the Apple 
IIgs world, and gives some subroutines to use for finding data 


pointed to by them. 


Handles and Pointers are part of a hierarchy of addresses that 
enable you to find things the Memory Manager and others have 
hidden and moved around in RAM. For example, the Memory 
Manager gives you a Handle, which is a 24-bit address pointing 
to a Master Pointer, which is in turn a 24-bit address pointing 
to your Memory block. The Memory manager is free to move the 
accual memory block around, as long as it keeps the master 

po nter updated; you can always find out where the memory block 
is because you have the handle with which you can look up the 
cu rent location. 


Ke gave some code for using handles to find memory, and indeed 
to find other data in the Master Pointer area. Of course code 
lixe this has many more applications, as it is just basically a 
ma ter of picking up a 32-bit value at a known address, or at 
an offset from that known address. 


Hcy did you guess? I also have written some similar routines! 
My code is a teensy bit shorter than Ken's, and has the 
additional advantage of not uSing any page-zero memory. 


I followed the same ground rules as Ken: I assume you are in 
full 16-bit Native mode (m=x=0), and that the handle address is 
in the A- and X-registers. The low 16-bits of the handle are 
in the X-register, and the high 16 are in the A-register. (Of 
course, addresses in the IIgs are really only 24-bits long, so 
the high half of the A-register is ignored in the following 
code.) The result, the 32-bits accessed via the handle, are 
returned in the A- and X-registers. I wrote two versions, one 
foc inline use, the other a general purpose subroutine. 


My first version could be written as a macro, allowing any two 
pairs of bytes to be picked up in A and X: 


-MA PICKUP 

PHB Save Data Bank Reg 

PHA Push hi-A, then 1lo-A 

PLB Get bank where handle points 
TXY Get rest of handle in Y-reg 
LDX >]1,Y Get pair of bytes 

LDA >)2,Y Get another pair of bytes 
PLB Pop of what was hi-A 

PLB Restore B-register 

. EM 


Use with >PICKUP 0,2 to get first four bytes, the first of 
these being at the address in the handle. >PICKUP 8,10 will 
get four bytes starting at 8th. >PICKUP 2,8 will get bytes 2 
and 3 in X, 8 and 9 in A. 


\ 
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In the listing which follows, lines 1140-1210 are the same as 
the macro code above. The program demonstrates using it by 
printing out the address contained in the four bytes pointed to 
by a particular handle. The handle in my example contains the 
address $E10001, so the three bytes beginning at $E10001 are 


printed out. 


Lines 1370-1620 are similar in function, but written as a 
general subroutine. 
get the first four bytes the handle points to, or you can set Y 
to any offset value and call the subroutine at HANDPTR2 to get 


an offset group of four bytes. 


You can call the subroutine at HANDPTR to 


If you intend to use this subroutine in a larger program that 
occupies more than one bank, you might want to change the RTS 
in line 1610 to an RTL, and call the subroutine with a JSL 
rather than a JSR instruction. 


I toyed with the idea of a similar subroutine written in purely 


6502 code. 


What if we called a subroutine with the hi-half of 


a 16-bit address in the A-register, and the lo-half in the 
X-register? 
at an offset from that address? Here is what I came up with, 


using two bytes of 


HANDPTR 
HANDPTR2 


LDY 
STX 
STA 
LDA 
TAX 
INY 
LDA 
RTS 


What code would it take to pickup a two-byte value 


page zero memory: 


(ZP),¥ 


The only other pure 6502 routine I thought of involved 
self-modifying code, storing the address inside two LDA 


instructions. 


000800- 1 


000801- 
000802- 


000804 ~ 
000807 - 


OO080A- 


0008 15- 


0008 16- 
000819- 
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1010 -OP 65816 
1020 #22 ee ee ee 
aeRe T 
1040 CLC 
1050 XCE 
1060 REP #$30 
te Beem m en ewww en enn nnn ne eee ee eee 
1080 LDA HANDLE+2 
1090 LDX HANDLE 
1110 &”” Standard code sequence to eet 
andard code sequence to get inter into A,X 

1120 ' from a handle in A,X -- 12 bytes. : 
1180 PHB Save Data (cnn Register 
1150 PHA Push hi-A (GARBAGE), then lo-A 
1160 PLB lo-A is bank where handle ints 
110 TXY Use 16-bits of address in VFociater 
1180 LDX >0,Y Get first two bytes handle pointed at 
1190 LDA >2,Y Get next two by es handle pointed at 
1200 PLB pop original hi-A 
1550 ‘ PLB estore Data Bank Register 
1en0 STA POINTER+2 
1240 STX POINTER 
1250: #22esSe coe ee ceSecseeceebeses 
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Boon ice . ie) ae Print the 24-bit address returned 
00081E=- 20 DA FD 1280 JSR $FDDA 
ede ae a a 
000827- AD 2D 08 1340 LDA POINTER 
00082A- HC DA FD 1355 : UMP $FDDA << se 
00082D- 1380 POINTER -BS 4 
000831- 01 00 E1 1360 HANDLE -DA <$E10001 Ae eae 
1370 . More general subroutine for getting four bytes of data 
1350 # fron a block of memory pointed at by address in A,X 
1390 : ( 18 bytes ) 
1410 * Use JSR HANDPTR to get first four bytes. 
1420 # Use LDY ##n and JSR HANDPTR2 
Vi 30 ® to get four bytes starting at nth byte. 
i , : <<Note this subroutine assumes full 16-bit mode>> 
1420 HANDPTR 
000834—- AO 00 00 ake saaDptao ##0000 
000827- 8B 1490 Save Data Bank Register 
000878- 48 1500 PHA Push hi-A (GARBAGE), then lo-A 
000839- AB 1510 PLB lo-A is bank where handle points 
00083A- DA 1520 PHX Push 16-bit address of handle on stack 
00083B- B3 01 1330 ae (1,8),Y Get 2 bytes at (handle) ,Y 
= 1 0 T eee save em 
sete cs 1350 ae Point to next two bytes 
a t 2 bytes following the other two 
oor oe a 1360 aE (1,8),¥ get fhe handie address 
S868 s- AB {e LB pop original hi-A 
OOO844- AB 1600 PLB estore Data Bank Register 
000845- 60 1610 RTS 
1620 Senn mnn enn nn nn enn ene en ee eee eee eee 
_— —— OOS = Ss - 
; PROGRAMMER “3 
Applied Engineering is seeking an experienced 6502 and 65816 machine language = 


programmer. 2 years minimum programming experience is required. We offer an aa 
exciting Opportunity for the experienced programmer to take his skills to the limit. 
Applied Engineering offers an excellent compensation package including paid 
-— vacations, 11 paid holidays per year, health insurance program and more. — 2 
=. = Applied Engineering's location in the suburbs of north Dallas offers a “buyer's ee 
market” for housing, as well as excellent schools, shopping and entertainment. 
Successful applicant should have heavy machine language experience on the Apple 
Ile and [Gs as well as familiarity with AppleWorks. We're the best at what we do: if 
you are too, please send vour resume to: 
Applied Engineering 
P.O. Box 5100 


: Carrollton, TX 75011 i ia ele el 
a Attn: Personnel Se 


Converting BCD to Binary, Packing Fields...Bob Sander-Cederlof 


I have been working on some hardware recently which includes a 
date and time chip. The chip produces the year, month, day, 
hour, minute, and second as six BCD values. That is, each 
value is coded as an 8-bit byte, but not in binary. The first 
four bits are the ten's digit of the decimal value, and the 
Other four bits are the unit's digit. This is called BCD, for 
Binary-Coded-Decimal. 


This is nice for display purposes, but not so nice for packing 
into a binary format. My operating system needs the date and 

time packed into four bytes. (ProDOS does it in much the same 
way.) The end result will be two 16-bit values, looking like 

this: 


YY YYYY YMMMMDDDDD 
hhhhhmmmmmmsssss 


YYYYYYY means a seven bit field for the year, with a value 
between 0 and 99; MMMM is the month, 1-12; DDDDD is the day of 
month, 1-31; hhhhh is the hour of the day, 0-23; mmmnmm is the 
Minute, 0-59; and sssss is for seconds, but only runs from 0 to 
29. There are not quite enough bits, so “sssss“ is equal to 
seconds/2. This just happens to be the way date and time are 
stored in MS/DOS file directory entries, by the way. 


To start with, I needed an efficient way to convert a BCD byte 
into a binary value. Since I was working on a 65816-based 
system, I coded with that processor in mind. The listing which 
follows shows three different versions of this subroutine. The 
third one is written to run in a plain-vanilla 6502, in case 
that is all you have. 


The first version, lines 1020-1210, takes 20 bytes. It uses 
the stack for temporary storage, and works by isolating the 
ten's digit, calculating the binary value of ten times the 
ten's digit, and adding the unit's digit. I used the 
Stack-Relative addressing mode here, so it does require the 
65816 or 65802 processor. It will work in either Native or 
Emulation mode. If you are in Native mode, the m-bit must be 1 
so the A-register works as an 8-bit register. 


The second version, lines 1220-1400, is only 18 bytes. I gota 
little trickier, and took advantage of the fact that 10x is 
equal to 16x-6x. This also uses the Stack-Relative address 
mode, so the same restrictions apply as with the first version. 


The third version, lines 1410-1590, which will run in a 6502 or 
65C02, takes 22 bytes as shown. It requires two bytes for 
temporary storage. (I include these two bytes in the count.) 
If you put the two temp bytes in page zero, it will shorten the 
code by four bytes (still counting the temp bytes) making it 
just as short as the shortest 65816 version! Another 
shortening option would require the subroutine to be in RAM: 
Change lines 1530 and 1540 to use immediate mode, and store the 
Tl and T2 values directly into the address fields of these two 
instructions. This would also make an 18-byte subroutine, but 
with the stigma of being self-modifying code. 
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I wrote a test routine, to be sure my subroutines worked correctly. Lines 1630-1800 
run through all 100 possible values, comparing the converted result with the 
expected result. If there are any discrepancies, I print out the BCD and Binar 
values. Naturally, they all worked perfectly and I got no printout. (When tha 


happens it is a good idea to purposely insert a bug in the subroutine being tested 
to make sure the test routine itself is working!) 


The test routine uses a STZ opcode, which is on the 65C0O2 and up, but not on the 
6502. Substitute LDA #0, STA 0 is you have a 6502. The test routine counts from 0 
to 99 in decimal mode in the X- and A-registers, and from 0 to $63 in binary mode in 
page zero location $00. 


Lines 1810-2180 call on one of the BCD-to-BIN converters to convert the date and 
time values, and then use 6502-compatible code to pack it all into the required 
four-byte format. I used a sample date and time in lines 2200-2280. 


1900 8 
4 8 §.conv.Beb. $3.BEN 
10RD ® Convert BCD to BIN by parts 
ie CONV.BCD.TO.BIN. 1 
000800- 48 1060 PHA 
000801- e2 OF {ore AND #$0F ISOLATE UNITS DIGIT 
goon - 4 1080 
OOOBO4- 43 02 1090 EOR 2,8 ISOLATE TENS DIGIT 
000806- 18 1100 LSR TENS*8 
OOO80T- 4 1110 PHA 
eaeae - 4A 1120 LSR 
000809- 4A 1130 LSR TENS#2 
OOO80A- §3 01 1140 ADC 1,S TENS*#10 
OO080C- 63 02 1126 ADC 2,8 TENS*®10+UNITS 
OO80E- fF 03 1160 STA 3,8 save converted value 
0008 10- 6 ‘iho PLA POP off temps 
0008 11- 66 1180 PLA 
0008 12- 6 1190 PLA et converted result 
000813- 60 1200 RTS N 
- 1210 Z.A -EQ #-CONV.BCD.TO.BIN.1 


Basic-like macros which make the complex simple. Don't re-write that 
multiplication routine for the hundredth time! Get EnterSoft instead! Do 
8/16/32/64 bit Math/Input-Output/Graphics simply without all of the 
hassles. These routines are a must for the serious programmer who 
doesn't want to spend all of his/her time trying to re-invent the wheel. 
DOS 3.3 Version=$30.00, ProDos Version=$30.00, BOTH for only $50.00. 

GET YOURS TODAY. 


A Shape Table Program: 


For once! A shape table program which is logically organizied into its 
componet parts. Each section resides in its own program. The editor, 
disk access, Hi-Res section; each section is separate. Written almost 
entirely in Basic, it is easily modified. Not copyprotected! Put them on a 
Hard Disk, Ram Drive, anywhere! DOS 3.3 Version=$20.00, ProDos 
Version=$20.00, BOTH for $30.00! 
ProDos Upgrade for DOS 3.3 
EnterSoft Owners = $20.00 


Send Check or Money Order To: 


Mark Manning 

c/o Simulacron |/Baggy Game 
P.O. Box 58598 
Webster, TX 77598 


Thanks for the letters - 
Keep Writing! 


Nite all tent tant healt 


Pind alte Ny 
Se pe PR Pan ay a eR Se rng Se eee eae eT 
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FO 


FF 
02 


od ed oh eed ot 

mo are 
HANDS LES Ei en) 
CO CHOW) \OUIW) & Co iO 0 


000826- 8D 3h 08 


00082D- 8D 3B 08 


1- 6D 3B 08 
oO Oe sy D 3A 08 


00083C- 64 00 
O0083E- A2 00 


000841- 20 00 08 


- 20 DA FD 
OOO084C- 20 DA FD 


INTRODUCTION 
TO POSTSCRIPT 


A 65 min user group VHS 
video with Don Lancaster 
sharing many of his laser 
publishing and Postscript 
programming secrets. 


Includes curve tracing, $5 
toner refilling, the full Kroy 
Kolor details, page layouts, 
plus bunches more. 


$39.50 


FREE VOICE HELPLINE 


Box 809-SC 
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6a - (16a+b) - 1 (because carry was clear) 


= 6a 
6a_- (16a+b) - 1 (because carry was clear) 
a 


1230 *# Convert BCD to BIN by subtraction 
1240 # 10a+b = 16a+b - 6a 
1250 #-----~------- + ~~ = oe - + ee 
1260 CONV.BCD.TO.BIN.2 
rei Save 16#a+b 
1280 AND #$FO Isolate 16#a 
1290 LSR make it 8#a 
1300 LSR make it 4#a 
1310 PHA Save 4fa 
1320 LSR ke 2a 
1 Be ADC 1, a+2a = 6a 
3 0 SBC 2 
1350 EOR #$FF (16a+b) - 6a 
1360 STA 2, Save in stack 
1 ie PLA pop off temp value 
1380 PLA et binary result 
1390 RTS RETURN 
ns z.B -EQ #-CONV.BCD.TO.BIN.2 
1420 # 6502 Version 
Une is # Convert BCD Fe BIN by subtraction 
Le : : 10a+b = 16a+b - 6a 
420 CONV.BCD.TO.BIN.3 
ae STA T1 Save 16*a+b 
480 AND # Isolate 16%a 
490 LSR make it 8#a 
5 LSR make it 4#a 
STA T2 Save 4#a 
LSR make 2#a 
ADC T2 Ha+2a = 6 
SBC T1 
EOR #$FF (16a+b) - 
RTS RETURN 
T1 -BS 1 
Te -BS 1 


Sw 300 ©) Oy wn O 


BEQ .2 
JSR $FDDA 
TXA 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0.1 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


DON LANCASTER STUFF 


ASK 
THE GURU 


An entire set of reprints to 
Don Lancaster's ASK THE 
GURU columns, all the 
way back to column one. 
Edited and updated. 


Both Apple and desktop 
publishing resources are 
included that are not to be 
found elsewhere. 


$24.50 


z.C -EQ #-CONV.BCD.TO.BIN.3 


TX 
JSR CONV.BCD.TO.BIN.1 
CMP 0 


APPLE lic/lle 
ABSOLUTE 
RESET 


Now gain absolute control 
over your Apple! You stop 
any program at any time. 


Eliminates all dropouts on 
your HIRES screen dumps. 
Gets rid of all hole blast- 
ing. For any tlc or lle. 


$19.50 


SYNERGETICS 
Thatcher, AZ 85552 


POSTSCRIPT 
SHOW & TELL 


Unique graphics and text 
routines the others don't 
even dream of. For most 
any Postscript printer. 


Fully open, unlocked, and 
easily adaptable to your 
own needs. Available for 
Apple, PC, Mac, ST, many 
others. 


$39.50 


VISA/MC 


(602) 428-4073 


1810: Hoteles Sscace ost eee estes 
He ; Convert BCD Date/Time to Packed Binary 
1830 S--------- ee a ee 
1880 S 
O0085B- A2 05 1850 LDX #5 
OO OR RD - BD 22 § une 1 LDA BCD.DATE.AND. TIME ,X 
O- 20 0 1 Ae JSR CONV.BCD.TO.BIN.2 
000863- 9D A3 08 1880 STA BIN.DATE.AND. TIME ,X 
000866- CA 1890 DEX 
000867- 10 F4 1900 BPL .1 
1910 #---Pack converted time---------- 
000869- HE A8 08 1920 LSR SEC OOOSSSSS' Sec/2 
OOO86C- AD AT 08 Aono LDA MIN O0OMMM 
OOO86F- OA 1940 ASL OMMMMMMO 
000870- OA 1820 ASL MMMMMMO 0 
T1- OA 1960 M.M 
000872- 2E A6 08 bt ROL HOUR OOHHHHHM 
000875- OA 1980 ASL M.MMMM0000 
000876- 2E A6 08 1990 ROL HOUR OHHHHHMM 
000879- OA 2000 ASL M.MMMO0000 
00087A=- OD A8& 08 2010 ORA SEC Ss 
00087D=- 8D AB 08 2020 STA HMS 
000880- AD A6 08 2030 LDA HOUR 
000883- 2A 2040 ROL HHHHHMMM 
000884- BD AC 08 2050 STA HMS+1 HHHHHMMM 
2060 #---Pack converted date~---------- 
000887- AD A4 08 2070 LDA MONTH 0000mmm 
OOO88A- OA 2080 ASL 000mmmm0 
OOO88B- OA 2090 ASL 00mmmm00 
0008 8C- OA 2100 ASL Ommmm000 
0008 8D- OA 2110 ASL mnamm00 00 
8E- OA 2120 ASL m.mnm00000 
OOO8BF- OD A5 08 Ant ORA DAY mumddddd 
cen a a ae 
= yyyyyyy 
0008S Be 2A 5120 ROL yyyyyyym 
000899- 8D AA 08 atte STA YMD+1 
00089C- 60 2180 
2190 #-~-------------~--~---~----------- 
ra # Date and Time in BCD Format 
2220 BCD. DATE. AND. TIME 
OOO089D- 87 230 : 87 Year 
OOO89E- 12 2240 ~-HS 12 Month 
OOO089F- 17 2250 HS 17 Day 
0008 A0= 09 2260 HS 09 Hour 
OOO8A1=- 57 Soke ~HS 57 Minute 
OOO8A2- 30 2280 ~HS 30 second 
2290 Bonn nnn nnn ee enw ew wen ee eee 
2300 BIN.DATE. AND. TIME 
0008 A3- 2310 YEAR -BS 1 TEMPS, receive binary values 
0008 A4- 2320 MONTH .BS 1 
0008 A5- 2330 DAY -BS 1 
0008 A6- $3 QO HOUR -BS 1 
OOO8AT-—- 2350 MIN BS 1 
0008 A8- $360 SEC BS 1 
2360 : Date and Time in Packed Binary Format 
D200; Boniavsceuucenceneeeccecereseanss 
0008 A9- 2h00 YMD .BS 2 YYYYYYY.MMMM. DDDDD 
0008 AB- 2410 HMS .BS 2 HHHHH.MMMMMM.SSSSS SSSSS=Sec/2 
B20, Waceesesasossectea loool ete ee ce 
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